!$openad xxx file_start [OAD_intrinsics.f90]
      module OAD_intrinsics
      end module
!$openad xxx file_start [all_globals_mod.f]
      module all_globals_mod

      end module

!$openad xxx file_start [head.f]
C$openad XXX Template ad_template.f
      subroutine head(x,y)
        use OAD_intrinsics
        double precision, dimension(2) :: x
        double precision, dimension(1) :: y
        integer :: i,a,b
        double precision :: j
        a = 1
        b = 3
        do i = a,b
          j = 3.0D0
        end do
C$openad INDEPENDENT(x)
        y(1) = x(1)*x(2)
C$openad DEPENDENT(y)
      end subroutine

